#!/home/y/bin/perl

use lib qw(lib ../lib);
use FindBin qw/$Bin/;
use Test::More qw/no_plan/;

my $rootdir = $ENV{FARSAILDIR} = "$Bin/conf";

use_ok( "Farsail" );

use Data::Dumper qw(Dumper);
$Data::Dumper::Indent = 1;

my $farsail = Farsail->instance;
isa_ok($farsail, 'Farsail');

my $dbh = $farsail->db_connect('farsail_proxydb');
my $sth = $dbh->prepare('select current_database()');
$sth->execute();
my ($db) = $sth->fetchrow_array;
$sth->finish();
print $db, "\n";
